home *** CD-ROM | disk | FTP | other *** search
/ Micro Dingo Especial Manga 1 / Micro Dingo Especial Manga 01 CD.iso / cd dingo / dingosexo / hentai / juegos / 06.swf / scripts / frame_92 / DoAction.as
Text File  |  2003-01-22  |  968b  |  30 lines
  1. clicks = "150";
  2. call("inicializa_matriz");
  3. call("calcula_matriz");
  4. contador = "1";
  5. while(contador < "16")
  6. {
  7.    ficha = "ficha" add contador;
  8.    objeto = "/" add contador;
  9.    xnombre = "/" add contador add ":xactual";
  10.    ynombre = "/" add contador add ":yactual";
  11.    xnombref = "/" add contador add ":xfinal";
  12.    ynombref = "/" add contador add ":yfinal";
  13.    set(xnombre,int((eval(ficha) - "1") / "4"));
  14.    set(ynombre,eval(ficha) - eval(xnombre) * "4");
  15.    set(xnombref,int((contador - "1") / "4"));
  16.    set(ynombref,contador - eval(xnombref) * "4");
  17.    set(xnombref,eval(xnombref) + "1");
  18.    set(xnombre,eval(xnombre) + "1");
  19.    xpos = "200" + (eval(xnombre) - "1") * "63";
  20.    ypos = "88" + (eval(ynombre) - "1") * "63";
  21.    setProperty(objeto, _X, xpos);
  22.    setProperty(objeto, _Y, ypos);
  23.    contador += "1";
  24. }
  25. call("calcula_libre");
  26. xlibre = int((casilla_libre - "1") / "4");
  27. ylibre = casilla_libre - xlibre * "4";
  28. xlibre += "1";
  29. stop();
  30.